Imports WindowsApplication1
Public Class CriterioCompDocFecha
    Implements IComparer

    Public Function CompPorFecha(ByVal x As Object, ByVal y As Object) As Integer Implements System.Collections.IComparer.Compare
        Return CType(x, Documento).fecha.CompareTo(CType(y, Documento).fecha)
    End Function
End Class
